home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / rrect.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  2.8 KB  |  82 lines
  1. VERSION 5.00
  2. Begin VB.Form frmRRect 
  3.    Caption         =   "Round Rectangle"
  4.    ClientHeight    =   1470
  5.    ClientLeft      =   6435
  6.    ClientTop       =   2910
  7.    ClientWidth     =   3465
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   1470
  13.    ScaleWidth      =   3465
  14.    Begin VB.TextBox txtRoundness 
  15.       Height          =   285
  16.       Left            =   1680
  17.       TabIndex        =   3
  18.       Text            =   "50"
  19.       Top             =   240
  20.       Width           =   615
  21.    End
  22.    Begin VB.CommandButton cmdOK 
  23.       Caption         =   "OK"
  24.       Height          =   375
  25.       Left            =   240
  26.       TabIndex        =   0
  27.       Top             =   840
  28.       Width           =   1335
  29.    End
  30.    Begin VB.CommandButton cmdCancel 
  31.       Caption         =   "Cancel"
  32.       Height          =   375
  33.       Left            =   1920
  34.       TabIndex        =   1
  35.       Top             =   840
  36.       Width           =   1215
  37.    End
  38.    Begin VB.Label Label1 
  39.       Caption         =   "Roundness"
  40.       Height          =   375
  41.       Left            =   240
  42.       TabIndex        =   2
  43.       Top             =   240
  44.       Width           =   1095
  45.    End
  46. Attribute VB_Name = "frmRRect"
  47. Attribute VB_GlobalNameSpace = False
  48. Attribute VB_Creatable = False
  49. Attribute VB_PredeclaredId = True
  50. Attribute VB_Exposed = False
  51. Option Explicit
  52. '/******************************************************************/
  53. '/*                                                                */
  54. '/*                      TurboCAD for Windows                      */
  55. '/*                   Copyright (c) 1993 - 2001                    */
  56. '/*             International Microcomputer Software, Inc.         */
  57. '/*                            (IMSI)                              */
  58. '/*                      All rights reserved.                      */
  59. '/*                                                                */
  60. '/******************************************************************/
  61. ' Storage for read-only property indicating whether
  62. ' or not the dialog box was cancelled. Default is
  63. ' False. Note that the declaration is Private, so
  64. ' that the value cannot be set from the OLE client
  65. ' application. The client reads the value using the
  66. ' DialogCancelled property.
  67. Private blnDialogCanceled As Boolean
  68. ' Read-only property indicating cancellation of the
  69. ' dialog.
  70. Property Get DialogCanceled() As Boolean
  71.     DialogCanceled = blnDialogCanceled
  72. End Property
  73. Private Sub cmdCancel_Click()
  74.     ' Set the value of the read-only property that
  75.     ' tells the caller the dialog was cancelled.
  76.     blnDialogCanceled = True
  77.     Me.Hide
  78. End Sub
  79. Private Sub cmdOK_Click()
  80.     Me.Hide
  81. End Sub
  82.